home *** CD-ROM | disk | FTP | other *** search
/ FM Towns: Free Software Collection 4 / FM Towns Free Software Collection 4 - Disc 1.iso / msdos / dbhamlog / hamlog.prg < prev    next >
Text File  |  1991-10-18  |  4KB  |  161 lines
  1. **交信記録.PRG** HAM QSO DATA BASE ***********
  2. ***HAMLOG*******   dBASE 3 PLUS    *********** 
  3. ********************** T.Chino *****1991.02.01*
  4. USE HAMLOG INDEX CALL,MMDDYY,FREQ,JCC_G,GL
  5. SET TALK OFF
  6. SET ESCA OFF
  7. SET DEVI TO SCREEN
  8. SET SAFE OFF
  9. SET INTE ON
  10. SET EXAC ON
  11. SET DELE ON
  12. SET CONF OFF
  13. SET DATE ANSI
  14. SET STAT OFF
  15. SET CURS OFF
  16. STOR SPACE(8)  TO M && MMDDYY
  17. STOR SPACE(5)  TO T && TIME
  18. STOR SPACE(10) TO C && CALL
  19. STOR SPACE(4)  TO W && WAVE
  20. STOR SPACE(4)  TO F && FREQ 
  21. STOR SPACE(10) TO N && NAME
  22. STOR SPACE(18) TO A && ADDRES
  23. STOR SPACE(5)  TO J && JCC_G
  24. STOR SPACE(6)  TO G && GL
  25. STOR SPACE(2)  TO Q && QSL
  26.  
  27. DO WHILE .T.
  28. CLEAR
  29.  
  30. SET COLOR TO BR
  31.   @ 1,13   SAY "*************************************************"
  32.   @ 2,13   SAY "*                                               *"
  33.   @ 3,13   SAY "********************************* 交信記録.PRG **"
  34. SET COLOR TO GR
  35.   @ 2,16   SAY "アマチュア 無 線 ＱＳＯ ログ 管 理 システム"
  36. SET COLOR TO R
  37.   @ 2,65   SAY STR(RECNO(),5)+" /"+STR(RECCOUNT(),5)
  38. SET COLOR TO BGI
  39.   @ 5,15   SAY "                                              "
  40.   @ 6,15   SAY "                                              "
  41.   @ 7,15   SAY "　　　　　　　　　　　　　　　　　　　　　　　"
  42.   @ 8,15   SAY "                                              "
  43.   @ 9,15   SAY "                                              "
  44.   @ 10,15  SAY "                                              "
  45.   @ 11,15  SAY "                                              "
  46.   @ 12,15  SAY "                                              "
  47.   @ 13,15  SAY "　　　　　　　　　　　　　　　　　　　　　　　"
  48.   @ 14,15  SAY "                                              "
  49.   @ 15,15  SAY "                                              "
  50.   @ 16,15  SAY "                                              "
  51.   @ 17,15  SAY "                                              "
  52.   @ 18,15  SAY "                                              "
  53.   @ 19,15  SAY "                                              "
  54.  
  55. STOR 06 TO X1
  56. STOR 08 TO X2
  57. STOR 10 TO X3
  58. STOR 12 TO X4
  59. STOR 14 TO X5
  60. STOR 16 TO X6
  61. STOR 17 TO X7
  62. STOR 18 TO X8
  63. SET COLOR TO
  64.  
  65. STOR "  登録処理 ( TOROKU.PRG  ) " TO MEN1
  66. STOR "  修正処理 ( EDIT  .PRG  ) " TO MEN2
  67. STOR "  検索処理 ( KEN   .PRG  ) " TO MEN3
  68. STOR "  印刷処理 ( INJI  .PRG  ) " TO MEN4
  69. STOR "  終 了    (   ＱＵＩＴ  ) " TO MEN5
  70. STOR "  ＲＥＤ　２　ＰＵＬＳ "     TO MEN6
  71. STOR "  ＴＥＳＴ (Z.PRG) "         TO MEN7
  72. STOR "  ＡＳＳＩＳＴ "             TO MEN8
  73.  
  74. STOR 1 TO NUM
  75. DO WHILE NUM<=8 && *******
  76. STOR STR(NUM,1) TO NO
  77. @ X&NO,25 SAY MEN&NO
  78. STOR NUM+1 TO NUM
  79. ENDDO && *****************
  80.  
  81. SET COLOR TO BR
  82. @ 21,15 TO 23,60 DOUBLE
  83. @ 22,20 SAY " ↑ , ↓ で選択･ＲＥＴＵＲＮで決定"
  84.  
  85. STOR 1 TO NUM
  86. DO WHILE .T. && ********************
  87. SET COLO TO GRI
  88. STOR STR(NUM,1) TO NO
  89. **********
  90. IF NO="6"
  91.  SET COLO TO R
  92. ENDIF
  93. **********
  94. IF NO="7"
  95.  SET COLO TO GR
  96. ENDIF
  97. **********
  98. IF NO="8"
  99.  SET COLO TO B
  100. ENDIF
  101. **********
  102. IF NO="9"
  103.  SET COLO TO BRI
  104. ENDIF
  105. **********
  106. @ X&NO,25 SAY MEN&NO
  107. SET COLO TO 
  108.  
  109. SET CURS OFF
  110. STOR " " TO NUMBER
  111. @ 0,0 GET NUMBER
  112. READ
  113. *SET CURS ON
  114.  
  115. IF READKEY()=4
  116. @ X&NO,25 SAY MEN&NO
  117. ENDIF
  118. IF READKEY()=5
  119. @ X&NO,25 SAY MEN&NO
  120. ENDIF
  121.  
  122. ************************************
  123. DO CASE 
  124.    CASE READKEY()=4 .AND. NUM=1
  125.         STOR 8 TO NUM   
  126.    CASE READKEY()=4
  127.         STOR NUM-1 TO NUM   
  128.    CASE READKEY()=5 .AND. NUM=8
  129.         STOR 1 TO NUM   
  130.    CASE READKEY()=5
  131.         STOR NUM+1 TO NUM   
  132.    CASE READKEY()=15
  133.           
  134. SET CURS ON
  135.      DO CASE 
  136.         CASE NUM=1
  137.           DO TOROKU
  138.         CASE NUM=2
  139.           DO EDIT
  140.         CASE NUM=3
  141.           DO KEN
  142.         CASE NUM=4
  143.           DO INJI
  144.         CASE NUM=5
  145.           QUIT
  146.         CASE NUM=6
  147.           RUN RED2
  148.         CASE NUM=7
  149.           DO Z
  150.         CASE NUM=8
  151. *browse
  152.           ASSIST
  153.        ENDCASE
  154.       EXIT
  155.     OTHERWISE
  156.       LOOP
  157.    ENDCASE
  158.  ENDDO && **************************
  159. ENDDO
  160.  
  161.